home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / BNU22SR2.ZIP / src / binutils.2 / libibert / strerror.c < prev    next >
C/C++ Source or Header  |  1993-05-30  |  20KB  |  817 lines
  1. /* Extended support for using errno values.
  2.    Copyright (C) 1992 Free Software Foundation, Inc.
  3.    Written by Fred Fish.  fnf@cygnus.com
  4.  
  5. This file is part of the libiberty library.
  6. Libiberty is free software; you can redistribute it and/or
  7. modify it under the terms of the GNU Library General Public
  8. License as published by the Free Software Foundation; either
  9. version 2 of the License, or (at your option) any later version.
  10.  
  11. Libiberty is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14. Library General Public License for more details.
  15.  
  16. You should have received a copy of the GNU Library General Public
  17. License along with libiberty; see the file COPYING.LIB.  If
  18. not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  19. Cambridge, MA 02139, USA.  */
  20.  
  21. #include "config.h"
  22.  
  23. #include <stdio.h>
  24. #ifndef NEED_sys_errlist
  25. /* Note that errno.h might declare sys_errlist in a way that the
  26.  * compiler might consider incompatible with our later declaration,
  27.  * perhaps by using const attributes.  So we hide the declaration
  28.  * in errno.h (if any) using a macro. */
  29. #define sys_errlist sys_errlist__
  30. #endif
  31. #include <errno.h>
  32. #ifndef NEED_sys_errlist
  33. #undef sys_errlist
  34. #endif
  35.  
  36. /*  Routines imported from standard C runtime libraries. */
  37.  
  38. #ifdef __STDC__
  39. #include <stddef.h>
  40. extern void *malloc (size_t size);                /* 4.10.3.3 */
  41. extern void *memset (void *s, int c, size_t n);            /* 4.11.6.1 */
  42. #else    /* !__STDC__ */
  43. #ifndef const
  44. #define const
  45. #endif
  46. extern char *malloc ();        /* Standard memory allocater */
  47. extern char *memset ();
  48. #endif    /* __STDC__ */
  49.  
  50. #ifndef NULL
  51. #  ifdef __STDC__
  52. #    define NULL (void *) 0
  53. #  else
  54. #    define NULL 0
  55. #  endif
  56. #endif
  57.  
  58. #ifndef MAX
  59. #  define MAX(a,b) ((a) > (b) ? (a) : (b))
  60. #endif
  61.  
  62. /* Translation table for errno values.  See intro(2) in most UNIX systems
  63.    Programmers Reference Manuals.
  64.  
  65.    Note that this table is generally only accessed when it is used at runtime
  66.    to initialize errno name and message tables that are indexed by errno
  67.    value.
  68.  
  69.    Not all of these errnos will exist on all systems.  This table is the only
  70.    thing that should have to be updated as new error numbers are introduced.
  71.    It's sort of ugly, but at least its portable. */
  72.  
  73. struct error_info
  74. {
  75.   int value;        /* The numeric value from <errno.h> */
  76.   char *name;        /* The equivalent symbolic value */
  77.   char *msg;        /* Short message about this value */
  78. };
  79.  
  80. static const struct error_info error_table[] =
  81. {
  82. #if defined (EPERM)
  83.   EPERM, "EPERM", "Not owner",
  84. #endif
  85. #if defined (ENOENT)
  86.   ENOENT, "ENOENT", "No such file or directory",
  87. #endif
  88. #if defined (ESRCH)
  89.   ESRCH, "ESRCH", "No such process",
  90. #endif
  91. #if defined (EINTR)
  92.   EINTR, "EINTR", "Interrupted system call",
  93. #endif
  94. #if defined (EIO)
  95.   EIO, "EIO", "I/O error",
  96. #endif
  97. #if defined (ENXIO)
  98.   ENXIO, "ENXIO", "No such device or address",
  99. #endif
  100. #if defined (E2BIG)
  101.   E2BIG, "E2BIG", "Arg list too long",
  102. #endif
  103. #if defined (ENOEXEC)
  104.   ENOEXEC, "ENOEXEC", "Exec format error",
  105. #endif
  106. #if defined (EBADF)
  107.   EBADF, "EBADF", "Bad file number",
  108. #endif
  109. #if defined (ECHILD)
  110.   ECHILD, "ECHILD", "No child processes",
  111. #endif
  112. #if defined (EWOULDBLOCK)    /* Put before EAGAIN, sometimes aliased */
  113.   EWOULDBLOCK, "EWOULDBLOCK", "Operation would block",
  114. #endif
  115. #if defined (EAGAIN)
  116.   EAGAIN, "EAGAIN", "No more processes",
  117. #endif
  118. #if defined (ENOMEM)
  119.   ENOMEM, "ENOMEM", "Not enough space",
  120. #endif
  121. #if defined (EACCES)
  122.   EACCES, "EACCES", "Permission denied",
  123. #endif
  124. #if defined (EFAULT)
  125.   EFAULT, "EFAULT", "Bad address",
  126. #endif
  127. #if defined (ENOTBLK)
  128.   ENOTBLK, "ENOTBLK", "Block device required",
  129. #endif
  130. #if defined (EBUSY)
  131.   EBUSY, "EBUSY", "Device busy",
  132. #endif
  133. #if defined (EEXIST)
  134.   EEXIST, "EEXIST", "File exists",
  135. #endif
  136. #if defined (EXDEV)
  137.   EXDEV, "EXDEV", "Cross-device link",
  138. #endif
  139. #if defined (ENODEV)
  140.   ENODEV, "ENODEV", "No such device",
  141. #endif
  142. #if defined (ENOTDIR)
  143.   ENOTDIR, "ENOTDIR", "Not a directory",
  144. #endif
  145. #if defined (EISDIR)
  146.   EISDIR, "EISDIR", "Is a directory",
  147. #endif
  148. #if defined (EINVAL)
  149.   EINVAL, "EINVAL", "Invalid argument",
  150. #endif
  151. #if defined (ENFILE)
  152.   ENFILE, "ENFILE", "File table overflow",
  153. #endif
  154. #if defined (EMFILE)
  155.   EMFILE, "EMFILE", "Too many open files",
  156. #endif
  157. #if defined (ENOTTY)
  158.   ENOTTY, "ENOTTY", "Not a typewriter",
  159. #endif
  160. #if defined (ETXTBSY)
  161.   ETXTBSY, "ETXTBSY", "Text file busy",
  162. #endif
  163. #if defined (EFBIG)
  164.   EFBIG, "EFBIG", "File too large",
  165. #endif
  166. #if defined (ENOSPC)
  167.   ENOSPC, "ENOSPC", "No space left on device",
  168. #endif
  169. #if defined (ESPIPE)
  170.   ESPIPE, "ESPIPE", "Illegal seek",
  171. #endif
  172. #if defined (EROFS)
  173.   EROFS, "EROFS", "Read-only file system",
  174. #endif
  175. #if defined (EMLINK)
  176.   EMLINK, "EMLINK", "Too many links",
  177. #endif
  178. #if defined (EPIPE)
  179.   EPIPE, "EPIPE", "Broken pipe",
  180. #endif
  181. #if defined (EDOM)
  182.   EDOM, "EDOM", "Math argument out of domain of func",
  183. #endif
  184. #if defined (ERANGE)
  185.   ERANGE, "ERANGE", "Math result not representable",
  186. #endif
  187. #if defined (ENOMSG)
  188.   ENOMSG, "ENOMSG", "No message of desired type",
  189. #endif
  190. #if defined (EIDRM)
  191.   EIDRM, "EIDRM", "Identifier removed",
  192. #endif
  193. #if defined (ECHRNG)
  194.   ECHRNG, "ECHRNG", "Channel number out of range",
  195. #endif
  196. #if defined (EL2NSYNC)
  197.   EL2NSYNC, "EL2NSYNC", "Level 2 not synchronized",
  198. #endif
  199. #if defined (EL3HLT)
  200.   EL3HLT, "EL3HLT", "Level 3 halted",
  201. #endif
  202. #if defined (EL3RST)
  203.   EL3RST, "EL3RST", "Level 3 reset",
  204. #endif
  205. #if defined (ELNRNG)
  206.   ELNRNG, "ELNRNG", "Link number out of range",
  207. #endif
  208. #if defined (EUNATCH)
  209.   EUNATCH, "EUNATCH", "Protocol driver not attached",
  210. #endif
  211. #if defined (ENOCSI)
  212.   ENOCSI, "ENOCSI", "No CSI structure available",
  213. #endif
  214. #if defined (EL2HLT)
  215.   EL2HLT, "EL2HLT", "Level 2 halted",
  216. #endif
  217. #if defined (EDEADLK)
  218.   EDEADLK, "EDEADLK", "Deadlock condition",
  219. #endif
  220. #if defined (ENOLCK)
  221.   ENOLCK, "ENOLCK", "No record locks available",
  222. #endif
  223. #if defined (EBADE)
  224.   EBADE, "EBADE", "Invalid exchange",
  225. #endif
  226. #if defined (EBADR)
  227.   EBADR, "EBADR", "Invalid request descriptor",
  228. #endif
  229. #if defined (EXFULL)
  230.   EXFULL, "EXFULL", "Exchange full",
  231. #endif
  232. #if defined (ENOANO)
  233.   ENOANO, "ENOANO", "No anode",
  234. #endif
  235. #if defined (EBADRQC)
  236.   EBADRQC, "EBADRQC", "Invalid request code",
  237. #endif
  238. #if defined (EBADSLT)
  239.   EBADSLT, "EBADSLT", "Invalid slot",
  240. #endif
  241. #if defined (EDEADLOCK)
  242.   EDEADLOCK, "EDEADLOCK", "File locking deadlock error",
  243. #endif
  244. #if defined (EBFONT)
  245.   EBFONT, "EBFONT", "Bad font file format",
  246. #endif
  247. #if defined (ENOSTR)
  248.   ENOSTR, "ENOSTR", "Device not a stream",
  249. #endif
  250. #if defined (ENODATA)
  251.   ENODATA, "ENODATA", "No data available",
  252. #endif
  253. #if defined (ETIME)
  254.   ETIME, "ETIME", "Timer expired",
  255. #endif
  256. #if defined (ENOSR)
  257.   ENOSR, "ENOSR", "Out of streams resources",
  258. #endif
  259. #if defined (ENONET)
  260.   ENONET, "ENONET", "Machine is not on the network",
  261. #endif
  262. #if defined (ENOPKG)
  263.   ENOPKG, "ENOPKG", "Package not installed",
  264. #endif
  265. #if defined (EREMOTE)
  266.   EREMOTE, "EREMOTE", "Object is remote",
  267. #endif
  268. #if defined (ENOLINK)
  269.   ENOLINK, "ENOLINK", "Link has been severed",
  270. #endif
  271. #if defined (EADV)
  272.   EADV, "EADV", "Advertise error",
  273. #endif
  274. #if defined (ESRMNT)
  275.   ESRMNT, "ESRMNT", "Srmount error",
  276. #endif
  277. #if defined (ECOMM)
  278.   ECOMM, "ECOMM", "Communication error on send",
  279. #endif
  280. #if defined (EPROTO)
  281.   EPROTO, "EPROTO", "Protocol error",
  282. #endif
  283. #if defined (EMULTIHOP)
  284.   EMULTIHOP, "EMULTIHOP", "Multihop attempted",
  285. #endif
  286. #if defined (EDOTDOT)
  287.   EDOTDOT, "EDOTDOT", "RFS specific error",
  288. #endif
  289. #if defined (EBADMSG)
  290.   EBADMSG, "EBADMSG", "Not a data message",
  291. #endif
  292. #if defined (ENAMETOOLONG)
  293.   ENAMETOOLONG, "ENAMETOOLONG", "File name too long",
  294. #endif
  295. #if defined (EOVERFLOW)
  296.   EOVERFLOW, "EOVERFLOW", "Value too large for defined data type",
  297. #endif
  298. #if defined (ENOTUNIQ)
  299.   ENOTUNIQ, "ENOTUNIQ", "Name not unique on network",
  300. #endif
  301. #if defined (EBADFD)
  302.   EBADFD, "EBADFD", "File descriptor in bad state",
  303. #endif
  304. #if defined (EREMCHG)
  305.   EREMCHG, "EREMCHG", "Remote address changed",
  306. #endif
  307. #if defined (ELIBACC)
  308.   ELIBACC, "ELIBACC", "Can not access a needed shared library",
  309. #endif
  310. #if defined (ELIBBAD)
  311.   ELIBBAD, "ELIBBAD", "Accessing a corrupted shared library",
  312. #endif
  313. #if defined (ELIBSCN)
  314.   ELIBSCN, "ELIBSCN", ".lib section in a.out corrupted",
  315. #endif
  316. #if defined (ELIBMAX)
  317.   ELIBMAX, "ELIBMAX", "Attempting to link in too many shared libraries",
  318. #endif
  319. #if defined (ELIBEXEC)
  320.   ELIBEXEC, "ELIBEXEC", "Cannot exec a shared library directly",
  321. #endif
  322. #if defined (EILSEQ)
  323.   EILSEQ, "EILSEQ", "Illegal byte sequence",
  324. #endif
  325. #if defined (ENOSYS)
  326.   ENOSYS, "ENOSYS", "Operation not applicable",
  327. #endif
  328. #if defined (ELOOP)
  329.   ELOOP, "ELOOP", "Too many symbolic links encountered",
  330. #endif
  331. #if defined (ERESTART)
  332.   ERESTART, "ERESTART", "Interrupted system call should be restarted",
  333. #endif
  334. #if defined (ESTRPIPE)
  335.   ESTRPIPE, "ESTRPIPE", "Streams pipe error",
  336. #endif
  337. #if defined (ENOTEMPTY)
  338.   ENOTEMPTY, "ENOTEMPTY", "Directory not empty",
  339. #endif
  340. #if defined (EUSERS)
  341.   EUSERS, "EUSERS", "Too many users",
  342. #endif
  343. #if defined (ENOTSOCK)
  344.   ENOTSOCK, "ENOTSOCK", "Socket operation on non-socket",
  345. #endif
  346. #if defined (EDESTADDRREQ)
  347.   EDESTADDRREQ, "EDESTADDRREQ", "Destination address required",
  348. #endif
  349. #if defined (EMSGSIZE)
  350.   EMSGSIZE, "EMSGSIZE", "Message too long",
  351. #endif
  352. #if defined (EPROTOTYPE)
  353.   EPROTOTYPE, "EPROTOTYPE", "Protocol wrong type for socket",
  354. #endif
  355. #if defined (ENOPROTOOPT)
  356.   ENOPROTOOPT, "ENOPROTOOPT", "Protocol not available",
  357. #endif
  358. #if defined (EPROTONOSUPPORT)
  359.   EPROTONOSUPPORT, "EPROTONOSUPPORT", "Protocol not supported",
  360. #endif
  361. #if defined (ESOCKTNOSUPPORT)
  362.   ESOCKTNOSUPPORT, "ESOCKTNOSUPPORT", "Socket type not supported",
  363. #endif
  364. #if defined (EOPNOTSUPP)
  365.   EOPNOTSUPP, "EOPNOTSUPP", "Operation not supported on transport endpoint",
  366. #endif
  367. #if defined (EPFNOSUPPORT)
  368.   EPFNOSUPPORT, "EPFNOSUPPORT", "Protocol family not supported",
  369. #endif
  370. #if defined (EAFNOSUPPORT)
  371.   EAFNOSUPPORT, "EAFNOSUPPORT", "Address family not supported by protocol",
  372. #endif
  373. #if defined (EADDRINUSE)
  374.   EADDRINUSE, "EADDRINUSE", "Address already in use",
  375. #endif
  376. #if defined (EADDRNOTAVAIL)
  377.   EADDRNOTAVAIL, "EADDRNOTAVAIL","Cannot assign requested address",
  378. #endif
  379. #if defined (ENETDOWN)
  380.   ENETDOWN, "ENETDOWN", "Network is down",
  381. #endif
  382. #if defined (ENETUNREACH)
  383.   ENETUNREACH, "ENETUNREACH", "Network is unreachable",
  384. #endif
  385. #if defined (ENETRESET)
  386.   ENETRESET, "ENETRESET", "Network dropped connection because of reset",
  387. #endif
  388. #if defined (ECONNABORTED)
  389.   ECONNABORTED, "ECONNABORTED", "Software caused connection abort",
  390. #endif
  391. #if defined (ECONNRESET)
  392.   ECONNRESET, "ECONNRESET", "Connection reset by peer",
  393. #endif
  394. #if defined (ENOBUFS)
  395.   ENOBUFS, "ENOBUFS", "No buffer space available",
  396. #endif
  397. #if defined (EISCONN)
  398.   EISCONN, "EISCONN", "Transport endpoint is already connected",
  399. #endif
  400. #if defined (ENOTCONN)
  401.   ENOTCONN, "ENOTCONN", "Transport endpoint is not connected",
  402. #endif
  403. #if defined (ESHUTDOWN)
  404.   ESHUTDOWN, "ESHUTDOWN", "Cannot send after transport endpoint shutdown",
  405. #endif
  406. #if defined (ETOOMANYREFS)
  407.   ETOOMANYREFS, "ETOOMANYREFS", "Too many references: cannot splice",
  408. #endif
  409. #if defined (ETIMEDOUT)
  410.   ETIMEDOUT, "ETIMEDOUT", "Connection timed out",
  411. #endif
  412. #if defined (ECONNREFUSED)
  413.   ECONNREFUSED, "ECONNREFUSED", "Connection refused",
  414. #endif
  415. #if defined (EHOSTDOWN)
  416.   EHOSTDOWN, "EHOSTDOWN", "Host is down",
  417. #endif
  418. #if defined (EHOSTUNREACH)
  419.   EHOSTUNREACH, "EHOSTUNREACH", "No route to host",
  420. #endif
  421. #if defined (EALREADY)
  422.   EALREADY, "EALREADY", "Operation already in progress",
  423. #endif
  424. #if defined (EINPROGRESS)
  425.   EINPROGRESS, "EINPROGRESS", "Operation now in progress",
  426. #endif
  427. #if defined (ESTALE)
  428.   ESTALE, "ESTALE", "Stale NFS file handle",
  429. #endif
  430. #if defined (EUCLEAN)
  431.   EUCLEAN, "EUCLEAN", "Structure needs cleaning",
  432. #endif
  433. #if defined (ENOTNAM)
  434.   ENOTNAM, "ENOTNAM", "Not a XENIX named type file",
  435. #endif
  436. #if defined (ENAVAIL)
  437.   ENAVAIL, "ENAVAIL", "No XENIX semaphores available",
  438. #endif
  439. #if defined (EISNAM)
  440.   EISNAM, "EISNAM", "Is a named type file",
  441. #endif
  442. #if defined (EREMOTEIO)
  443.   EREMOTEIO, "EREMOTEIO", "Remote I/O error",
  444. #endif
  445.   0, NULL, NULL
  446. };
  447.  
  448. /* Translation table allocated and initialized at runtime.  Indexed by the
  449.    errno value to find the equivalent symbolic value. */
  450.  
  451. static char **error_names;
  452. static int num_error_names = 0;
  453.  
  454. /* Translation table allocated and initialized at runtime, if it does not
  455.    already exist in the host environment.  Indexed by the errno value to find
  456.    the descriptive string.
  457.  
  458.    We don't export it for use in other modules because even though it has the
  459.    same name, it differs from other implementations in that it is dynamically
  460.    initialized rather than statically initialized. */
  461.  
  462. #ifdef NEED_sys_errlist
  463.  
  464. static int sys_nerr;
  465. static char **sys_errlist;
  466.  
  467. #else
  468.  
  469. extern int sys_nerr;
  470. extern char *sys_errlist[];
  471.  
  472. #endif
  473.  
  474.  
  475. /*
  476.  
  477. NAME
  478.  
  479.     init_error_tables -- initialize the name and message tables
  480.  
  481. SYNOPSIS
  482.  
  483.     static void init_error_tables ();
  484.  
  485. DESCRIPTION
  486.  
  487.     Using the error_table, which is initialized at compile time, generate
  488.     the error_names and the sys_errlist (if needed) tables, which are
  489.     indexed at runtime by a specific errno value.
  490.  
  491. BUGS
  492.  
  493.     The initialization of the tables may fail under low memory conditions,
  494.     in which case we don't do anything particularly useful, but we don't
  495.     bomb either.  Who knows, it might succeed at a later point if we free
  496.     some memory in the meantime.  In any case, the other routines know
  497.     how to deal with lack of a table after trying to initialize it.  This
  498.     may or may not be considered to be a bug, that we don't specifically
  499.     warn about this particular failure mode.
  500.  
  501. */
  502.  
  503. static void
  504. init_error_tables ()
  505. {
  506.   const struct error_info *eip;
  507.   int nbytes;
  508.  
  509.   /* If we haven't already scanned the error_table once to find the maximum
  510.      errno value, then go find it now. */
  511.  
  512.   if (num_error_names == 0)
  513.     {
  514.       for (eip = error_table; eip -> name != NULL; eip++)
  515.     {
  516.       if (eip -> value >= num_error_names)
  517.         {
  518.           num_error_names = eip -> value + 1;
  519.         }
  520.     }
  521.     }
  522.  
  523.   /* Now attempt to allocate the error_names table, zero it out, and then
  524.      initialize it from the statically initialized error_table. */
  525.  
  526.   if (error_names == NULL)
  527.     {
  528.       nbytes = num_error_names * sizeof (char *);
  529.       if ((error_names = (char **) malloc (nbytes)) != NULL)
  530.     {
  531.       memset (error_names, 0, nbytes);
  532.       for (eip = error_table; eip -> name != NULL; eip++)
  533.         {
  534.           error_names[eip -> value] = eip -> name;
  535.         }
  536.     }
  537.     }
  538.  
  539. #ifdef NEED_sys_errlist
  540.  
  541.   /* Now attempt to allocate the sys_errlist table, zero it out, and then
  542.      initialize it from the statically initialized error_table. */
  543.  
  544.   if (sys_errlist == NULL)
  545.     {
  546.       nbytes = num_error_names * sizeof (char *);
  547.       if ((sys_errlist = (char **) malloc (nbytes)) != NULL)
  548.     {
  549.       memset (sys_errlist, 0, nbytes);
  550.       sys_nerr = num_error_names;
  551.       for (eip = error_table; eip -> name != NULL; eip++)
  552.         {
  553.           sys_errlist[eip -> value] = eip -> msg;
  554.         }
  555.     }
  556.     }
  557.  
  558. #endif
  559.  
  560. }
  561.  
  562. /*
  563.  
  564. NAME
  565.  
  566.     errno_max -- return the max errno value
  567.  
  568. SYNOPSIS
  569.  
  570.     int errno_max ();
  571.  
  572. DESCRIPTION
  573.  
  574.     Returns the maximum errno value for which a corresponding symbolic
  575.     name or message is available.  Note that in the case where
  576.     we use the sys_errlist supplied by the system, it is possible for
  577.     there to be more symbolic names than messages, or vice versa.
  578.     In fact, the manual page for perror(3C) explicitly warns that one
  579.     should check the size of the table (sys_nerr) before indexing it,
  580.     since new error codes may be added to the system before they are
  581.     added to the table.  Thus sys_nerr might be smaller than value
  582.     implied by the largest errno value defined in <errno.h>.
  583.  
  584.     We return the maximum value that can be used to obtain a meaningful
  585.     symbolic name or message.
  586.  
  587. */
  588.  
  589. int
  590. errno_max ()
  591. {
  592.   int maxsize;
  593.  
  594.   if (error_names == NULL)
  595.     {
  596.       init_error_tables ();
  597.     }
  598.   maxsize = MAX (sys_nerr, num_error_names);
  599.   return (maxsize - 1);
  600. }
  601.  
  602. #ifdef NEED_strerror
  603.  
  604. /*
  605.  
  606. NAME
  607.  
  608.     strerror -- map an error number to an error message string
  609.  
  610. SYNOPSIS
  611.  
  612.     char *strerror (int errnoval)
  613.  
  614. DESCRIPTION
  615.  
  616.     Maps an errno number to an error message string, the contents of
  617.     which are implementation defined.  On systems which have the external
  618.     variables sys_nerr and sys_errlist, these strings will be the same
  619.     as the ones used by perror().
  620.  
  621.     If the supplied error number is within the valid range of indices
  622.     for the sys_errlist, but no message is available for the particular
  623.     error number, then returns the string "Error NUM", where NUM is the
  624.     error number.
  625.  
  626.     If the supplied error number is not a valid index into sys_errlist,
  627.     returns NULL.
  628.  
  629.     The returned string is only guaranteed to be valid only until the
  630.     next call to strerror.
  631.  
  632. */
  633.  
  634. char *
  635. strerror (errnoval)
  636.   int errnoval;
  637. {
  638.   char *msg;
  639.   static char buf[32];
  640.  
  641. #ifdef NEED_sys_errlist
  642.  
  643.   if (error_names == NULL)
  644.     {
  645.       init_error_tables ();
  646.     }
  647.  
  648. #endif
  649.  
  650.   if ((errnoval < 0) || (errnoval >= sys_nerr))
  651.     {
  652.       /* Out of range, just return NULL */
  653.       msg = NULL;
  654.     }
  655.   else if ((sys_errlist == NULL) || (sys_errlist[errnoval] == NULL))
  656.     {
  657.       /* In range, but no sys_errlist or no entry at this index. */
  658.       sprintf (buf, "Error %d", errnoval);
  659.       msg = buf;
  660.     }
  661.   else
  662.     {
  663.       /* In range, and a valid message.  Just return the message. */
  664.       msg = sys_errlist[errnoval];
  665.     }
  666.   
  667.   return (msg);
  668. }
  669.  
  670. #endif    /* NEED_strerror */
  671.  
  672.  
  673. /*
  674.  
  675. NAME
  676.  
  677.     strerrno -- map an error number to a symbolic name string
  678.  
  679. SYNOPSIS
  680.  
  681.     char *strerrno (int errnoval)
  682.  
  683. DESCRIPTION
  684.  
  685.     Given an error number returned from a system call (typically
  686.     returned in errno), returns a pointer to a string containing the
  687.     symbolic name of that error number, as found in <errno.h>.
  688.  
  689.     If the supplied error number is within the valid range of indices
  690.     for symbolic names, but no name is available for the particular
  691.     error number, then returns the string "Error NUM", where NUM is
  692.     the error number.
  693.  
  694.     If the supplied error number is not within the range of valid
  695.     indices, then returns NULL.
  696.  
  697. BUGS
  698.  
  699.     The contents of the location pointed to are only guaranteed to be
  700.     valid until the next call to strerrno.
  701.  
  702. */
  703.  
  704. char *
  705. strerrno (errnoval)
  706.   int errnoval;
  707. {
  708.   char *name;
  709.   static char buf[32];
  710.  
  711.   if (error_names == NULL)
  712.     {
  713.       init_error_tables ();
  714.     }
  715.  
  716.   if ((errnoval < 0) || (errnoval >= num_error_names))
  717.     {
  718.       /* Out of range, just return NULL */
  719.       name = NULL;
  720.     }
  721.   else if ((error_names == NULL) || (error_names[errnoval] == NULL))
  722.     {
  723.       /* In range, but no error_names or no entry at this index. */
  724.       sprintf (buf, "Error %d", errnoval);
  725.       name = buf;
  726.     }
  727.   else
  728.     {
  729.       /* In range, and a valid name.  Just return the name. */
  730.       name = error_names[errnoval];
  731.     }
  732.  
  733.   return (name);
  734. }
  735.  
  736. /*
  737.  
  738. NAME
  739.  
  740.     strtoerrno -- map a symbolic errno name to a numeric value
  741.  
  742. SYNOPSIS
  743.  
  744.     int strtoerrno (char *name)
  745.  
  746. DESCRIPTION
  747.  
  748.     Given the symbolic name of a error number, map it to an errno value.
  749.     If no translation is found, returns 0.
  750.  
  751. */
  752.  
  753. int
  754. strtoerrno (name)
  755.   char *name;
  756. {
  757.   int errnoval = 0;
  758.  
  759.   if (name != NULL)
  760.     {
  761.       if (error_names == NULL)
  762.     {
  763.       init_error_tables ();
  764.     }
  765.       for (errnoval = 0; errnoval < num_error_names; errnoval++)
  766.     {
  767.       if ((error_names[errnoval] != NULL) &&
  768.           (strcmp (name, error_names[errnoval]) == 0))
  769.         {
  770.           break;
  771.         }
  772.     }
  773.       if (errnoval == num_error_names)
  774.     {
  775.       errnoval = 0;
  776.     }
  777.     }
  778.   return (errnoval);
  779. }
  780.  
  781.  
  782. /* A simple little main that does nothing but print all the errno translations
  783.    if MAIN is defined and this file is compiled and linked. */
  784.  
  785. #ifdef MAIN
  786.  
  787. main ()
  788. {
  789.   int errn;
  790.   int errnmax;
  791.   char *name;
  792.   char *msg;
  793.   char *strerrno ();
  794.   char *strerror ();
  795.  
  796.   errnmax = errno_max ();
  797.   printf ("%d entries in names table.\n", num_error_names);
  798.   printf ("%d entries in messages table.\n", sys_nerr);
  799.   printf ("%d is max useful index.\n", errnmax);
  800.  
  801.   /* Keep printing values until we get to the end of *both* tables, not
  802.      *either* table.  Note that knowing the maximum useful index does *not*
  803.      relieve us of the responsibility of testing the return pointer for
  804.      NULL. */
  805.  
  806.   for (errn = 0; errn <= errnmax; errn++)
  807.     {
  808.       name = strerrno (errn);
  809.       name = (name == NULL) ? "<NULL>" : name;
  810.       msg = strerror (errn);
  811.       msg = (msg == NULL) ? "<NULL>" : msg;
  812.       printf ("%-4d%-18s%s\n", errn, name, msg);
  813.     }
  814. }
  815.  
  816. #endif
  817.